Public Class MyDiamondContainer
    Inherits Camalon.Drawing.ShapeContainer
    Private components As System.ComponentModel.IContainer
    Friend WithEvents Diamond3D1 As Camalon.Drawing.Samples.VB.Diamond3D

    Sub New()

        InitializeComponent()

    End Sub

    Private Sub InitializeComponent()
        Me.components = New System.ComponentModel.Container()
        Me.Diamond3D1 = New Camalon.Drawing.Samples.VB.Diamond3D(Me.components)
        CType(Me.Diamond3D1, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'Diamond3D1
        '
        Me.Diamond3D1.Position = New System.Drawing.Point(70, 80)
        Me.Diamond3D1.Size = New System.Drawing.Size(440, 380)
        Me.Diamond3D1.Status = 2
        '
        'MyDiamondContainer
        '
        Me.Position = New System.Drawing.Point(30, 50)
        Me.Shapes.AddRange(New Camalon.Drawing.Shape() {Me.Diamond3D1})
        Me.Size = New System.Drawing.Size(760, 610)
        CType(Me.Diamond3D1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub


End Class



